home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / GENESIS.T < prev    next >
Text File  |  1991-02-16  |  8KB  |  218 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Entry in %ZCUSER.IDS for Genesis: remote,password,handle,number
  7.  :   remote:   argument of "call" command
  8.  :   password: signon password (required)
  9.  :   name:     name. Assumed equal to "%n1 %n2" if not specified.
  10.  :   number:   Optional: not used if absent
  11.  pt10 ena -tK!Z set z9 17;pat;pat 0c "Another Return" \r;pat 1i \n
  12.  while c&&!1 setn z9 17-z9+13 mput \d%z9 wait -f1
  13.  ife !c return;p?0 findq "\n%remote," %lib/%ZCUSER.ids
  14.  if ? split z0 , , ,;if %z1 goto haveuser
  15.  pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
  16.  ife r nolog close;return
  17. haveuser:
  18.  ife !%z2 sets z2 "%n1 %n2"
  19.  set fpgup "@accept s0 Upload-Filename:;if %s0 sx %s0"
  20.  set fpgdn "@accept s0 Download-Filename:;if %s0 rc %s0"
  21.  pat 17cp "- Press A Key" \336\r
  22.  pat 18cp "[ Press A Key" \336\r
  23.  pat 19cp "[Press A Key" \336\r
  24.  pat 20cp "<Press A Key>" \336\r
  25.  pat 21cp "More [" \336C
  26.  pat 22cp "[More]" \336\r
  27.  pat 23cp "-More-" \336C
  28.  pat;pat 0c "[>" "@ife %z3 mput \b%z3\r;else mput \b%z2\r"
  29.  pat 1c "newuser]> " "@ife %z3 mput \b%z3\r;else mput \b%z2\r"
  30.  pat 2c "%z2"
  31.  pat 3c$ "]: " "@ife 2 mput Y;else setc z3 \&;mput N"
  32.  pat 4c "ssword:" "%z1\r"
  33.  pat 5i "(XXX)XXX-" "%n5\r";wait -f60
  34.  pat;pat 0i \f;pat 1i \E[2J;wait -f10;ife 1 wait -f10;mput \030
  35.  pat;pat 0i "\nBulletin System"
  36.  pat 1i "\nMain "
  37.  :: pat 2c "Select [" \336\r
  38.  wait -f60;if n bye;ife r nolog close;return
  39.  if 1 goto genesismain
  40.  pat;pat 0 "]: ";wait -f30;if n bye;ife r nolog close;return
  41.  set z2 "";if "hNew Bulletins: " split y " " " " ""
  42.  split z2 "," "";if !%z0 goto genesisqbul
  43. genesisnbul:
  44.  ife %z0<2 put %z0\r;else put %z0
  45.  pat;pat 0i "\nBulletin System";wait -f30;if n bye;ife r nolog close;return
  46.  pat;pat 0 "]: ";wait -f30;if n bye;ife r nolog close;return
  47.  if %z1 split z1 "," "";goback genesisnbul
  48. genesisqbul:
  49.  pat;put Q
  50.  pat 0i "\nMain "
  51.  wait -f30;if n bye;ife r nolog close;return
  52. genesismain:
  53.  pat;pat 0i "]: ";wait -f30;if n bye;ife r nolog close;return
  54. genesisjoin:
  55.  ife r w;ena -S!i
  56.  pat;mput \336M
  57.  pat 0i "Message Menu ["
  58.  pat 1i "\nMessage Base"
  59.  wait -f30;if n bye;ife r nolog close;return
  60.  if 0 goto genesisnodm
  61.  pat;pat 0i "]: ";wait -f30;if n bye;ife r nolog close;return
  62.  pat;mput \336N
  63.  pat 0i "All]: ";wait -f30;if n bye;ife r nolog close;return
  64.  pat;mput \336\r
  65.  set s1 1
  66. genesisscan:
  67.  if r w;echof " ";nolog close
  68.  pat
  69.  pat 0l "- Scanning Area "
  70.  pat 1l "MS: #"
  71.  pat 2i "Message Menu ["
  72.  pat 3i "\nMessage Base"
  73.  wait -f30;if n bye;ife r nolog close;return
  74.  if 0 split y2 "i" " " " " ":" "(" "";sets s1 %z3;sets s2 %z4;goback genesisscan
  75.  if 2||3 ki;ife !r create -+S!i %n9/ZC%d%ano.log;goto genesisnewt
  76.  sets z0 %y2;if r w
  77.  sets z9 %s1;if %z9==1 sets z9 "0%z9"
  78.  if f%n9/%remote%z9.log ki;create -+S %n9/%remote%z9.log
  79.  else ki;create -+S %n9/%remote%z9.log;echof \T%s2
  80.  echof \T%z0
  81.  pat;pat 0i "Select ["
  82.  wait -f30;if n bye;ife r nolog close;return
  83.  pat;pat 0i "]:"
  84.  wait -f30;if n bye;ife r nolog close;return
  85.  mput \336\r;goback genesisscan
  86. genesisnodm:
  87.  pat;pat 0i "]: ";wait -f30;if n bye;ife r nolog close;return
  88.  pat;mput \336N
  89.  pat 0i "): ";wait -f30;if n bye;ife r nolog close;return
  90.  split y1 ( - , ""
  91. genesisnodn:
  92.  pat;mput \336%z1\r
  93.  pat 0l "Board \""
  94.  pat 1l "[ Newscan Completed ]"
  95.  wait -f30;if n bye;ife r nolog close;return
  96.  if r nolog close
  97.  if !0 ki;goto genesisnods
  98.  sets z0 %y2;ki
  99.  sets z9 %z1;if %z9==1 sets z9 "0%z9"
  100.  if f%n9/%remote%z9.log create -+S %n9/%remote%z9.log
  101.  else create -+S %n9/%remote%z9.log;echof "%z0"
  102.  pat;pat 0c \r\n\r\n @w
  103.  pat 1l "[ Newscan Completed ]"
  104.  wait -f30;ki;ife r nolog close;if n bye;return
  105. genesisnods:
  106.  if Iz1,z2 goto genesisnewd
  107.  setn z1 z1+1
  108.  pat;pat 0i "]: ";wait -f30;if n bye;ife r nolog close;return
  109.  pat;mput \336N
  110.  pat 0i "): ";wait -f30;if n bye;ife r nolog close;return
  111.  goback genesisnodn
  112. genesisnewd:
  113.  ki;ife r nolog close;create -+ %n9/ZC%d%ano.LOG
  114.  pat;pat 0i "Message Menu ["
  115.  wait -f30;if n bye;ife r nolog close;return
  116. genesisnewt:
  117.  pat;pat 0i "]: ";wait -f30;if n bye;ife r nolog close;return
  118.  pat;mput \336Q;pat 0 \nMain;wait -f30;if n bye;ife r nolog close;return
  119.  pat;put F;pat 0 "\nMain";pat 1 "\File System"
  120.  wait -f30;if n bye;ife r nolog close;return
  121.  if 0 goto nofiles
  122.  set s0 1;set s1 999
  123.  pat;mput A;pat 0 "]:";pat 1$ "A";wait -f30;if n bye;ife r nolog close;return
  124.  if 0 put 1\r;goto havefile
  125.  set s1 9;pat;mput 1;pat 0$ "1";pat 1i \n;wait -f30;if n bye;ife r nolog close;return
  126.  if 0 set s1 99;pat;put \r
  127. havefile:
  128.  pat;pat 0 "File System";wait -f30;if n bye;ife r nolog close;return
  129.  if !f%n8/%remote.ul goto nupl
  130.  : Upload files listed in <bbs>.ul as follows: area,filename.ext,description
  131.  : Description can be up to 72 characters in length.
  132.  display inhibit;open -!g %n8/%remote.ul;display noinhibit
  133.  if !t goto dupl
  134. ulsk:
  135.  grab z1;if !t goto dupl
  136.  setc z9 \032;if Iz9,z1 nolog closetx;goto dupl
  137.  echoc "%z1";split z1 , , "";if !%z0||!%z1||!%z2||%z0>%s1||%z2>72 goback ulsk
  138.  pat;mput A;pat 0 A;wait -f30;if n bye;ife r nolog close;return
  139.  pat;put %z0;ife %z0<%s1 put \r
  140.  pat 0c "out of range";pat 1c "nvalid";pat 2 "File System"
  141.  wait -f30;if n bye;ife r nolog close;return
  142.  if 0||1 goback ulsk
  143.  pat;mput U
  144.  pat 0 "File System";pat 1c "Select [" \336X;pat 2 "Enter Filename"
  145.  wait -f30;if n bye;ife r nolog close;return
  146.  if 0 goback ulsk
  147.  pat;put %z1\r;pat 0 "File System";pat 1c "Use Xmodem/CRC" \336Y
  148.  pat 2l "to abort";pat 3l "To Abort";pat 4l "to receive file(s)"
  149.  wait -f30;if n bye;ife r nolog close;return
  150.  if 0 goback ulsk
  151.  sx %z1
  152.  pat;pat 0 "File System";pat 1 "-|\r\n: ";pat 2 "\n[>"
  153.  wait -f30;if n bye;ife r nolog close;return
  154.  if 0 goback ulsk
  155.  pat;put \b\b\T%z2;put \r;pat 0 "File System"
  156.  wait -f30;if n bye;ife r nolog close;return
  157.  goback ulsk
  158. dupl:
  159.  del %n8/%remote.ul
  160. nupl:
  161.  gosub .%lib/agelist.t;if as0<14 goto nolist
  162. listfile:
  163.  ki;create -yS!i %n7/%remote.lst
  164.  if r split t " ";echof "\T%telno %remote %z1"
  165.  set s0 1
  166. listloop:
  167.  pat;mput F;pat 0 "File System";pat 1 "File range"
  168.  wait -f30;if n bye;ife r nolog close;return
  169.  if 1 pat;mput \r;pat 0$c "): " \336C;pat 1 "File System";wait -f30;if n bye;ife r nolog close;return
  170.  w;setn s0 s0+1
  171.  pat;mput A;pat 0 A;wait -f30;if n bye;ife r nolog close;return
  172.  pat;put %s0;ife %s0<%s1 put \r
  173.  pat 0c "out of range";pat 1c "nvalid";pat 2 "File System"
  174.  wait -f30;if n bye;ife r nolog close;return
  175.  if !0&&!1 goback listloop
  176.  if r close
  177. nolist:
  178.  ki;create -+ %n9/ZC%d%ano.LOG
  179.  if !f%n8/%remote.dl goto ndnl
  180.  : Download files listed in <bbs>.dl as follows: area,number,filename
  181.  display inhibit;open -!g %n8/%remote.dl;display noinhibit
  182.  if !t goto ddnl
  183. dlsk:
  184.  grab z1;if !t goto ddnl
  185.  setc z9 \032;if Iz9,z1 nolog closetx;goto ddnl
  186.  echoc "%z1";split z1 , , ,"";if !%z0||!%z1||!%z2 goback dlsk
  187.  pat;mput A;pat 0 A;wait -f30;if n bye;ife r nolog close;return
  188.  pat;put %z0;ife %z0<%s1 put \r
  189.  pat 0c "out of range";pat 1c "nvalid";pat 2 "File System"
  190.  wait -f30;if n bye;ife r nolog close;return
  191.  if 0||1 goback dlsk
  192.  pat;mput D;pat 0 "File System";pat 1 "Protocol";pat 2 "Select ["
  193.  wait -f30;if n bye;ife r nolog close;return
  194.  if 0 goback dlsk
  195.  pat;mput x;pat 0 "File System";pat 1 " to download"
  196.  wait -f30;if n bye;ife r nolog close;return
  197.  pat;mput %z1\r
  198.  pat 0 "File System";pat 1c "Continue [" \336Y
  199.  pat 2c "log-off after download" \336N
  200.  pat 3i "to abort transfer.\r\n";pat 4i "To Abort\r\n"
  201.  pat 5 "start your download"
  202.  wait -f30;if n bye;ife r nolog close;return
  203.  if 0 goback dlsk
  204.  rc %z2
  205.  pat;pat 0 "File System"
  206.  wait -f30;if n bye;ife r nolog close;return
  207.  goback dlsk
  208. ddnl:
  209.  del %n8/%remote.dl
  210. ndnl:
  211.  pat;mput Q;pat 0 \nMain;wait -f30;if n bye;ife r nolog close;return
  212. nofiles:
  213.  pat;lput "\r\n%n1, press alt-N if you want to run the session manually.\r\n"
  214.  pat;pat 24cp "rz\r**\030" "@rz -p";wait -F5;if !c bye;ife r nolog close;return
  215.  pat;mput "L";pat 0 "]:";wait -f30;if n bye;ife r nolog close;return
  216.  pat;mput "Y";pat 0 "]:";wait -f30;if n bye;ife r nolog close;return
  217.  pat;mput "N";wait -F20;ife c bye;ife r nolog close;return
  218.